﻿Imports System.Data.OleDb

Module DataProvider
    Dim LoaiKetNoi = "Provider=Microsoft.Jet.OLEDB.4.0;"
    Dim DuLieu = "Data Source=QLTCCN.mdb"
    Dim ChuoiKetNoi = LoaiKetNoi & DuLieu

    Function MoKetNoi() As OleDbConnection
        Dim con As OleDbConnection = New OleDbConnection()
        con.ConnectionString = ChuoiKetNoi
        Return con
    End Function
End Module
